sdk/samples/all in on code/Visual Studio 2010/VBASPNETIPtoLocation/Default.aspx.vb

   1 '*************************** Module Header ********************************\
   2 ' Module Name:    Default.aspx.vb
   3 ' Project:        VBASPNETIPtoLocation
   4 ' Copyright (c) Microsoft Corporation
   5 '
   6 ' This project illustrates how to get the geographical location from a db file.
   7 ' You need install Sqlserver Express for run the web applicaiton. The code-sample
   8 ' only support Internet Protocol version 4.
   9 '
  10 ' This source is subject to the Microsoft Public License.
  11 ' See http://www.microsoft.com/opensource/licenses.mspx#Ms-PL.
  12 ' All other rights reserved.
  13 '
  14 ' THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND,
  15 ' EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE IMPLIED
  16 ' WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
  17 '*****************************************************************************/
  18
  19
  20 Imports System.Net
  21 Imports System.IO
  22 Imports System.Data
  23 Imports System.Data.SqlClient
  24 Imports System.Configuration
  25
  26 Public Class _Default
  27     Inherits System.Web.UI.Page
  28
  29     Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
  30         Dim ipAddress As String
  31
  32         ' Get the client's IP address.If you get the result of "::1", it's the IPv6 version
  33         ' of your IP address, you can disable IPv6 components if you want to get IPv4 version.
  34         ' And you need change the registry key when you disable it, check this link:
  35         ipAddress = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
  36         If String.IsNullOrEmpty(ipAddress) Then
  37             ipAddress = Request.ServerVariables("REMOTE_ADDR")
  38         End If
  39         lbIPAddress.Text = "You IP Address is: [" & ipAddress & "]."
  40     End Sub
  41
  42     Protected Sub btnSubmit_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnSubmit.Click
  43         Dim ipAddress As String = tbIPAddress.Text.Trim()
  44         Dim locationInfo As New Location()
  45         If String.IsNullOrEmpty(ipAddress) Then
  46             Response.Write("<strong>Please input an IP address</strong>")
  47             Return
  48         End If
  49
  50         ' Get the IP address string and calculate IP number.
  51         Dim ipRange As String = IPConvert.ConvertToIPRange(ipAddress)
  52         Dim tabLocation As New DataTable()
  53
  54         ' Create a connection to Sqlserver
  55         Using sqlConnection As New SqlConnection(ConfigurationManager.ConnectionStrings("ConectString").ToString())
  56             Dim selectCommand As String = "select * from IPtoLocation where CAST(" & ipRange & " as bigint) between BeginingIP and EndingIP"
  57             Dim sqlAdapter As New SqlDataAdapter(selectCommand, sqlConnection)
  58             sqlConnection.Open()
  59             sqlAdapter.Fill(tabLocation)
  60         End Using
  61
  62         ' Store IP infomation into Location entity class
  63         If tabLocation.Rows.Count = 1 Then
  64             locationInfo.BeginIP = tabLocation.Rows(0)(0).ToString()
  65             locationInfo.EndIP = tabLocation.Rows(0)(1).ToString()
  66             locationInfo.CountryTwoCode = tabLocation.Rows(0)(2).ToString()
  67             locationInfo.CountryThreeCode = tabLocation.Rows(0)(3).ToString()
  68             locationInfo.CountryName = tabLocation.Rows(0)(4).ToString()
  69         Else
  70             Response.Write("<strong>Cannot find the location based on the IP address [" & ipAddress & "].</strong> ")
  71             Return
  72         End If
  73
  74         ' Output.
  75         Response.Write("<strong>Country Code(Two):</strong> ")
  76         Response.Write(locationInfo.CountryTwoCode + "<br />")
  77
  78         Response.Write("<strong>Country Code(Three):</strong> ")
  79         Response.Write(locationInfo.CountryThreeCode + "<br />")
  80
  81         Response.Write("<strong>Country Name:</strong> ")
  82         Response.Write(locationInfo.CountryName + "<br />")
  83
  84         lbIPAddress.Visible = False
  85     End Sub
  86 End Class